home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Main.dxr / 00001_Main movie script.ls next >
Encoding:
Text File  |  1998-12-16  |  1.4 KB  |  49 lines
  1. global gMachineData, gMasterData, gHandCursor, gFingerCursor
  2.  
  3. on prepareMovie
  4.   setModule(gMasterData, #main)
  5.   set gHandCursor to [member "hand cursor" of castLib "Shared", member "hand mask" of castLib "Shared"]
  6.   set gFingerCursor to [member "finger cursor" of castLib "Shared", member "finger mask" of castLib "Shared"]
  7.   set the exitLock to 1
  8.   if the keyDownScript = EMPTY then
  9.     set the keyDownScript to "quitCatcher"
  10.   end if
  11.   if not activationOn(gMasterData, #video) then
  12.     set the timeoutLength to 75 * 60
  13.   else
  14.     set the timeoutLength to 30 * 60
  15.   end if
  16.   cursor(0)
  17. end
  18.  
  19. on clearFields
  20.   set vEmptyList to ["menu1 field", "myself field", "measure field", "history field", "mirror field", "menu2 field", "dm101 field", "reach4 field", "stepfar field", "view field", "menu3 field", "dm202 field", "meeting field", "candles field", "whowhat field", "menu4 field", "review field", "plan field", "eval field", "PrintAllAnswers"]
  21.   repeat with X in vEmptyList
  22.     set the text of member X of castLib "Shared" to EMPTY
  23.   end repeat
  24. end
  25.  
  26. on quitNow
  27.   restoreMachine(gMachineData)
  28.   halt()
  29. end
  30.  
  31. on playTinaMovie
  32.   stopSounds()
  33.   exitLeafMenu()
  34.   if not activationOn(gMasterData, #video) then
  35.     activate(gMasterData, #video)
  36.   end if
  37.   go("Tina")
  38. end
  39.  
  40. on preLoadTina
  41.   if the platform starts "Win" then
  42.     preloadMember(member "intro")
  43.   end if
  44. end
  45.  
  46. on stopMovie
  47.   set the preloadRam to 0
  48. end
  49.